home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
termxtrs.lha
/
Extras
/
Rexx
/
AskUpload.term
< prev
next >
Wrap
Text File
|
1995-02-20
|
1KB
|
34 lines
/* $VER: AskUpload.term (20.1.95)
**
** Written by Olaf `Olsen' Barthel
**
** You can put this script into the `Binary upload' text entry field
** of the transfer settings. When an upload is invoked, you will be
** asked if you only want to send files or if you want to both send
** and receive data. Depending on what you choose the Hydracom protocol
** will be invoked.
**
** NOTE: In order for this script to work it must be able to find
** the Hydracom program. Change the line that reads `hydra = "hydracom"'
** if necessary, e.g. into `hydra = "c:hydracom"' or where ever you
** put the program.
*/
hydra = "hydracom"
OPTIONS results
ARG parameters
requestresponse options '"Send|Send & Receive|Cancel"' prompt '"Do you wish to send, or send & receive files?"'
/*requestresponse options '"Nur versenden|Auch empfangen|Abbrechen"' prompt '"Dateien nur versenden, oder auch empfangen?"'*/
IF rc = 0 THEN DO
IF result = 1 THEN
cmd = "run " || hydra || " " || parameters
ELSE
cmd = "run " || hydra || " " || parameters || " get"
ADDRESS command cmd
END